home *** CD-ROM | disk | FTP | other *** search
- object FrmNNTP: TFrmNNTP
- Left = 295
- Top = 117
- Width = 407
- Height = 398
- BorderIcons = [biSystemMenu]
- Caption = 'Newsgroups'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poDefaultPosOnly
- Scaled = False
- OnClose = FormClose
- OnCreate = FormCreate
- PixelsPerInch = 120
- TextHeight = 16
- object PnlTop: TPanel
- Left = 0
- Top = 0
- Width = 399
- Height = 62
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 0
- object Label1: TLabel
- Left = 8
- Top = 10
- Width = 115
- Height = 16
- Caption = '&Newsgroup Server:'
- end
- object Label2: TLabel
- Left = 8
- Top = 36
- Width = 122
- Height = 16
- Caption = 'Optional, &Username:'
- FocusControl = EditUsername
- end
- object Label3: TLabel
- Left = 230
- Top = 36
- Width = 63
- Height = 16
- Caption = '&Password:'
- FocusControl = EditPassword
- end
- object EditUsername: TEdit
- Left = 140
- Top = 33
- Width = 79
- Height = 24
- TabOrder = 0
- end
- object EditPassword: TEdit
- Left = 312
- Top = 33
- Width = 79
- Height = 24
- PasswordChar = '*'
- TabOrder = 1
- end
- object EditServer: TComboBox
- Left = 140
- Top = 7
- Width = 251
- Height = 24
- ItemHeight = 16
- TabOrder = 2
- end
- end
- object PnlBottom: TPanel
- Left = 0
- Top = 320
- Width = 399
- Height = 38
- Align = alBottom
- BevelOuter = bvNone
- TabOrder = 2
- DesignSize = (
- 399
- 38)
- object BtnOK: TButton
- Left = 202
- Top = 4
- Width = 93
- Height = 30
- Anchors = [akTop, akRight]
- Cancel = True
- Caption = '&OK'
- Default = True
- ModalResult = 1
- TabOrder = 0
- OnClick = BtnOKClick
- end
- object BtnCancel2: TButton
- Left = 302
- Top = 4
- Width = 93
- Height = 30
- Anchors = [akTop, akRight]
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 1
- end
- end
- object PageControl1: TPageControl
- Left = 0
- Top = 62
- Width = 399
- Height = 258
- ActivePage = Tab2
- Align = alClient
- TabIndex = 1
- TabOrder = 1
- object Tab1: TTabSheet
- Caption = 'Subscribed Groups'
- object lbSubscribed: TListBox
- Left = 0
- Top = 0
- Width = 391
- Height = 208
- Align = alClient
- BorderStyle = bsNone
- ItemHeight = 16
- TabOrder = 0
- end
- object PnlUnsubscribe: TPanel
- Left = 0
- Top = 197
- Width = 391
- Height = 30
- Align = alBottom
- BevelOuter = bvNone
- TabOrder = 1
- object BtnUnsubscribe: TButton
- Left = 2
- Top = 4
- Width = 118
- Height = 25
- Caption = 'Unsubscribe'
- TabOrder = 0
- end
- end
- end
- object Tab2: TTabSheet
- Caption = 'All Groups'
- ImageIndex = 1
- object PnlAllList: TPanel
- Left = 0
- Top = 0
- Width = 391
- Height = 227
- Align = alClient
- BevelOuter = bvNone
- TabOrder = 0
- DesignSize = (
- 391
- 227)
- object GroupTree: TElTree
- Left = 0
- Top = 28
- Width = 391
- Height = 169
- Cursor = crDefault
- LeftPosition = 0
- DragCursor = crDrag
- Align = alClient
- AutoCollapse = False
- DockOrientation = doNoOrient
- DefaultSectionWidth = 120
- BorderStyle = bsNone
- BorderSides = [ebsLeft, ebsRight, ebsTop, ebsBottom]
- DoInplaceEdit = False
- ExplorerEditMode = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- GradientSteps = 64
- HeaderHeight = 19
- HeaderHotTrack = False
- HeaderSections.Data = {F4FFFFFF00000000}
- HeaderFont.Charset = DEFAULT_CHARSET
- HeaderFont.Color = clWindowText
- HeaderFont.Height = -13
- HeaderFont.Name = 'MS Sans Serif'
- HeaderFont.Style = []
- HorzScrollBarStyles.ShowTrackHint = False
- HorzScrollBarStyles.Width = 17
- HorzScrollBarStyles.ButtonSize = 21
- IgnoreEnabled = False
- IncrementalSearch = False
- KeepSelectionWithinLevel = False
- LineBorderActiveColor = clBlack
- LineBorderInactiveColor = clBlack
- LineHeight = 17
- MouseFrameSelect = True
- MultiSelect = False
- OwnerDrawMask = '~~@~~'
- ScrollbarOpposite = False
- ScrollTracking = True
- ShowCheckboxes = True
- ShowLeafButton = False
- SortType = stCustom
- StoragePath = 'Tree'
- TabOrder = 1
- TabStop = True
- Tracking = False
- UseCustomScrollBars = False
- VertScrollBarStyles.ShowTrackHint = True
- VertScrollBarStyles.Width = 21
- VertScrollBarStyles.ButtonSize = 8
- VirtualityLevel = vlNone
- OnItemChecked = GroupTreeItemChecked
- OnItemExpand = GroupTreeItemExpand
- end
- object PnlSearch: TPanel
- Left = 0
- Top = 0
- Width = 391
- Height = 28
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 0
- DesignSize = (
- 391
- 28)
- object Label4: TLabel
- Left = 8
- Top = 4
- Width = 46
- Height = 16
- Caption = '&Search:'
- FocusControl = EditSearch
- end
- object EditSearch: TEdit
- Left = 63
- Top = 2
- Width = 324
- Height = 24
- Anchors = [akLeft, akTop, akRight]
- TabOrder = 0
- OnChange = EditSearchChange
- end
- end
- object PnlDownloading: TPanel
- Left = 66
- Top = 42
- Width = 258
- Height = 80
- Anchors = [akLeft, akTop, akRight]
- Caption = 'Downloading list of groups...'
- TabOrder = 2
- Visible = False
- DesignSize = (
- 258
- 80)
- object BtnCancel: TButton
- Left = 155
- Top = 52
- Width = 98
- Height = 24
- Anchors = [akTop, akRight]
- Cancel = True
- Caption = 'Cancel'
- TabOrder = 0
- OnClick = BtnCancelClick
- end
- end
- object Panel1: TPanel
- Left = 0
- Top = 197
- Width = 391
- Height = 30
- Align = alBottom
- BevelOuter = bvNone
- TabOrder = 3
- object BtnSubscribe: TButton
- Left = 2
- Top = 4
- Width = 118
- Height = 25
- Caption = '&Subscribe'
- TabOrder = 0
- OnClick = BtnSubscribeClick
- end
- object BtnList: TButton
- Left = 128
- Top = 4
- Width = 118
- Height = 25
- Caption = '&Refresh List'
- TabOrder = 1
- OnClick = BtnListClick
- end
- object cbHide: TCheckBox
- Left = 258
- Top = 8
- Width = 124
- Height = 17
- Caption = '&Hide junk groups'
- Checked = True
- State = cbChecked
- TabOrder = 2
- OnClick = cbHideClick
- end
- end
- end
- end
- end
- object NNTP: TmsNNTPClient
- Version = '2.02'
- Port = 119
- OnTransferProgress = NNTPTransferProgress
- Authorization = False
- Left = 132
- Top = 174
- end
- object Article: TmsArticle
- ContentType = 'text/plain'
- Version = '2.02'
- Left = 424
- Top = 232
- end
- object TimerType: TTimer
- Enabled = False
- OnTimer = TimerTypeTimer
- Left = 238
- Top = 172
- end
- end
-